home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Magazine / SFX / sfx-data / _rexx / DelayFX.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-07-19  |  1.3 KB  |  51 lines
  1. /* SFX DelayFX */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. SFX_GetActiveBuffer
  7. buf1=RESULT
  8. IF buf1>-1 THEN DO
  9.     SFX_GetChannels buf1
  10.     cha=RESULT
  11.     IF cha=2 THEN DO
  12.         SFX_SelOperator 'Delay'
  13.         SFX_SetOperatorParam 'Delay' 'P1ModShape' 'Curve'
  14.         SFX_SetOperatorParam 'Delay' 'P1CurveExp' '1.0'
  15.         SFX_SetOperatorParam 'Delay' 'P2S' '0.4'
  16.         SFX_SetOperatorParam 'Delay' 'P2ModShape' 'None'
  17.         SFX_SetOperatorParam 'Delay' 'P3S' '0.0625'
  18.         SFX_SetOperatorParam 'Delay' 'P3ModShape' 'None'
  19.         SFX_SetOperatorParam 'Delay' 'Ampf' '1.25'
  20.         SFX_DisableChannel buf1 1
  21.         SFX_SetOperatorParam 'Delay' 'P1S' '0.0'
  22.         SFX_SetOperatorParam 'Delay' 'P1E' '0.5'
  23.         SFX_ProcessSample buf1
  24.         IF RC=0 THEN buf1=RESULT
  25.         ELSE buf1=-2
  26.         buf2=-1
  27.         IF buf1>-1 THEN DO
  28.             SFX_EnableChannel buf1 1
  29.             SFX_DisableChannel buf1 0
  30.             SFX_SetOperatorParam 'Delay' 'P1S' '0.5'
  31.             SFX_SetOperatorParam 'Delay' 'P1E' '0.0'
  32.             SFX_ProcessSample buf1
  33.             IF RC=0 THEN buf2=RESULT
  34.             ELSE buf2=-2
  35.             SFX_RemoveBuffer buf1
  36.         END
  37.         ELSE SFX_Message '"Operator Delay failed !"'
  38.         IF buf2>-1 THEN DO
  39.             SFX_EnableChannel buf2 0
  40.             SFX_RedrawBuffer buf2
  41.             SFX_SetActiveBuffer buf2
  42.             SFX_CleanUp 0
  43.         END
  44.         ELSE SFX_Message '"Operator Delay failed !"'
  45.     END
  46.     ELSE SFX_Message '"Stereo source required !"'
  47. END
  48. ELSE SFX_Message '"No sample to operate on !"'
  49. SFX_Activate
  50. EXIT
  51.